perm filename DIF[CH2,ALS] blob
sn#272124 filedate 1977-03-29 generic text, type T, neo UTF8
1) CKP.MAC[CH2,ALS] and 2) CKP2.MAC[2,ALS] 3-29-77 14:14 pages 1,1
**** File 1) CKP.MAC[CH2,ALS], Page 1 line 1
1) 00010 TITLE CKP CHECKERS 12/31/70
1) 00020 SUBTTL PLAY -- A. SAMUEL
**** File 2) CKP2.MAC[2,ALS], Page 1 line 1
2) 00010 TITLE CKP CHECKERS 5/19/71
2) 00020 SUBTTL PLAY -- A. SAMUEL
***************
**** File 1) CKP.MAC[CH2,ALS], Page 4 line 338
1) 03103 JRST .+7
1) 03106 MOVE U1,PLY-1(X2)
1) 03109 TRNE U1,1
1) 03110 JRST PL17B
1) 03111 SKIPE FLIT
1) 03112 JRST PL17C
1) 03113 JRST PL17D
1) 03120 MOVE U2,X2
**** File 2) CKP2.MAC[2,ALS], Page 4 line 338
2) 03103 CAMG Z,BAD ;STOP IF GOOD OR BAD
2) 03106 JRST PL17C
2) 03120 MOVE U2,X2
***************
**** File 1) CKP.MAC[CH2,ALS], Page 4 line 400
1) 03670 PL17A: JUMPE X4,PL17B ;NONE ACCEPTABLE
1) 03680 MOVEM X4,BESTM
**** File 2) CKP2.MAC[2,ALS], Page 4 line 395
2) 03670 PL17A: JUMPE X4,PL17C ;NONE ACCEPTABLE
2) 03680 MOVEM X4,BESTM
***************
**** File 1) CKP.MAC[CH2,ALS], Page 4 line 405
1) 03720 PL17B: SKIPE FLIT ;ARE WE FLITTING
1) 03730 JRST PL17C ;NO
1) 03733 MOVE U1,PLY-1(X2)
1) 03736 TRNE U1,1
1) 03737 JRST .+4
1) 03738 MOVE Z,ZZ-1
1) 03739 MOVEM Z,FLITZ
1) 03742 JRST SRT16Y ;BAD TRUNK SO DISCARD
1) 03745 PL17D: SETOM FLIT ;STOP IN THIS CASE
1) 03750 MOVE U1,COUNT
1) 03760 MOVEM U1,COUNTZ
1) 03770 SUB U1,COUNTM
1) 03780 MOVNM U1,COUNTM ;REMAINING COUNT
1) CKP.MAC[CH2,ALS] and 2) CKP2.MAC[2,ALS] 3-29-77 14:14 pages 4,4
1) 03790 MOVE U1,DEPTH
1) 03800 MOVEM U1,DEPTHZ
1) 03810 SETZM DEPTHZ+1
1) 03820 SETZM COUNTZ+1
1) 03830 SETZM COUNTX
1) 03840 MOVE U1,STEMD
1) 03850 MOVEM U1,PLDPT
1) 03860 PL17C: MOVE U2,X2
**** File 2) CKP2.MAC[2,ALS], Page 4 line 400
2) 03860 PL17C: MOVE U2,X2
***************
**** File 1) CKP.MAC[CH2,ALS], Page 4 line 495
1) 04560 TRNN U1,1
1) 04570 JRST SRT16E
1) 04580 SETZM GETF3
**** File 2) CKP2.MAC[2,ALS], Page 4 line 470
2) 04550 SETZM GETF3
***************
**** File 1) CKP.MAC[CH2,ALS], Page 4 line 506
1) 04612 MOVEM Z,FLITZ#
**** File 2) CKP2.MAC[2,ALS], Page 4 line 479
2) 04570 MOVE U1,PLY-1(X2)
2) 04572 TRNE U1,1
2) 04574 JRST .+3
2) 04576 MOVNS Z
2) 04578 MOVNS U3
2) 04612 MOVEM Z,FLITZ#
***************
**** File 1) CKP.MAC[CH2,ALS], Page 4 line 525
1) 04662 ADD U3,[262626262626]
1) 04665 MOVSM U3,FLZZZ-1(U2)
**** File 2) CKP2.MAC[2,ALS], Page 4 line 503
2) 04662 ADD U3,[103103103103] ;4 TERMS OF 9 BITS EACH
2) 04665 MOVSM U3,FLZZZ-1(U2)
***************
**** File 1) CKP.MAC[CH2,ALS], Page 7 line 306
1) 02810 SIXBIT /CH2SMG/
1) 02840 IMP: MOVEI U1,[ASCIZ /IMP!/]
**** File 2) CKP2.MAC[2,ALS], Page 7 line 306
2) 02810 SIXBIT / 2ALS/
1) CKP.MAC[CH2,ALS] and 2) CKP2.MAC[2,ALS] 3-29-77 14:14 pages 7,7
2) 02840 IMP: MOVEI U1,[ASCIZ /IMP!/]
***************
**** File 1) CKP.MAC[CH2,ALS], Page 12 line 5
1) 00050 MAC2 \<3*S-2>
1) 00054 ASH U2,↑D12
1) 00058 ADDM U2,U2SAV
1) 00060 IMULI U1,5
1) 00070 MAC2 \<3*S-1>
1) 00074 ASH U2,6
1) 00078 ADDM U2,U2SAV
1) 00080 IMULI U1,5
1) 00090 MAC2 \<3*S>
1) 00094 ADDM U2,U2SAV
**** File 2) CKP2.MAC[2,ALS], Page 12 line 5
2) 00070 MAC2 \<2*S-1>
2) 00074 ASH U2,11 ;USE 9 BITS FOR EACH TABLE
2) 00078 ADDM U2,U2SAV
2) 00080 IMULI U1,13
2) 00090 MAC2 \<2*S>
2) 00094 ADDM U2,U2SAV
***************
**** File 1) CKP.MAC[CH2,ALS], Page 12 line 21
1) 00160 MAC3 1
**** File 2) CKP2.MAC[2,ALS], Page 12 line 17
2) 00152 MAC3 1
2) 00154 ADD U2,Q
2) 00156 IMULI U2,3
2) 00160 MAC3 1
***************
**** File 1) CKP.MAC[CH2,ALS], Page 12 line 52
1) 00550 IMULI X4,↑D18
1) 00554 MOVEI U1,[ASCIZ / TERM DATA FOR PHASE /]
**** File 2) CKP2.MAC[2,ALS], Page 12 line 51
2) 00550 IMULI X4,↑D16
2) 00554 MOVEI U1,[ASCIZ / TERM DATA FOR PHASE /]
***************
**** File 1) CKP.MAC[CH2,ALS], Page 12 line 58
1) 00570 REPEAT 3,< MOVEI U1,[ASCIZ / /]
1) 00580 PUSHJ PDP,PRINT
1) 00590 REPEAT 6,< XCT TLIST(X4)
1) CKP.MAC[CH2,ALS] and 2) CKP2.MAC[2,ALS] 3-29-77 14:14 pages 12,12
1) 00600 ADDI X4,3
1) 00610 PUSHJ PDP,PRINT>
1) 00620 SUBI X4,↑D17
1) 00630 PUSHJ PDP,TERPRI>
**** File 2) CKP2.MAC[2,ALS], Page 12 line 57
2) 00570 REPEAT 4,< MOVEI U1,[ASCIZ / /]
2) 00580 PUSHJ PDP,PRINT
2) 00590 REPEAT 4,< XCT TLIST(X4)
2) 00600 ADDI X4,4
2) 00604 PUSHJ PDP,PRINT
2) 00608 MOVEI U1,[ASCIZ / /]
2) 00610 PUSHJ PDP,PRINT>
2) 00620 SUBI X4,↑D15
2) 00630 PUSHJ PDP,TERPRI>
***************
**** File 1) CKP.MAC[CH2,ALS], Page 12 line 83
1) 00840 MOVEI U3,6
1) 00850 DATA3: SETZ U1,
1) 00860 MOVE X2,FLZZZ(X4)
1) 00870 LSHC U1,6
1) 00880 MOVEM X2,FLZZZ(X4)
1) 00890 IDIVI U1,5
1) 00900 MOVEM X2,X2SS
**** File 2) CKP2.MAC[2,ALS], Page 12 line 84
2) 00840 MOVEI U3,4
2) 00850 DATA3: SETZ U1,
2) 00860 MOVE X2,FLZZZ(X4)
2) 00870 LSHC U1,11
2) 00880 MOVEM X2,FLZZZ(X4)
2) 00890 IDIVI U1,5
2) 00892 MOVEM X2,X2SSS#
2) 00894 IDIVI U1,3
2) 00900 MOVEM X2,X2SS
***************
**** File 1) CKP.MAC[CH2,ALS], Page 12 line 98
1) 00990 SUBI U1,2
**** File 2) CKP2.MAC[2,ALS], Page 12 line 101
2) 00982 SUBI U1,1
2) 00984 PUSHJ PDP,NUM1
2) 00986 MOVE U1,X2SSS
2) 00990 SUBI U1,2
***************
1) CKP.MAC[CH2,ALS] and 2) CKP2.MAC[2,ALS] 3-29-77 14:14 pages 13,13
**** File 1) CKP.MAC[CH2,ALS], Page 13 line 47
1) 00415 MOVE U1,[SIXBIT /CH2SMG/]
1) 00416 MOVEM U1,SIGN0+3
**** File 2) CKP2.MAC[2,ALS], Page 13 line 47
2) 00415 MOVE U1,[SIXBIT / 2ALS/]
2) 00416 MOVEM U1,SIGN0+3
***************
**** File 1) CKP.MAC[CH2,ALS], Page 13 line 61
1) 00540 SIGSIZ=1356 ;MUST AGREE WITH CKL
1) 00560 SIGT0: IOWD SIGSIZ,LABEL
**** File 2) CKP2.MAC[2,ALS], Page 13 line 61
2) 00540 SIGSIZ=1764 ;MUST AGREE WITH CKL
2) 00560 SIGT0: IOWD SIGSIZ,LABEL
***************
**** File 1) CKP.MAC[CH2,ALS], Page 13 line 69
1) 00620 SIXBIT /CH2SMG/
1) 00640 SIG0: SIXBIT /SIGT0/
**** File 2) CKP2.MAC[2,ALS], Page 13 line 69
2) 00620 SIXBIT / 2ALS/
2) 00640 SIG0: SIXBIT /SIGT0/
***************
**** File 1) CKP.MAC[CH2,ALS], Page 13 line 89
1) 00820 EVAL11: BLOCK 26 ;SIGNATURE TABLES
1) 00830 SIGT11: BLOCK 27 ;LABEL IS CENTERED IN TABLE TO ALLOW NEGATIVE SUBSCRIPTS
1) 00840 EVAL12: BLOCK 26
1) 00850 SIGT12: BLOCK 27
1) 00860 EVAL13: BLOCK 26
1) 00870 SIGT13: BLOCK 27
1) 00880 EVAL14: BLOCK 26
1) 00890 SIGT14: BLOCK 27
1) 00900 EVAL15: BLOCK 26
1) 00910 SIGT15: BLOCK 27
1) 00920 EVAL16: BLOCK 26
1) 00930 SIGT16: BLOCK 27
1) 00940 EVAL21: BLOCK 76
1) 00950 SIGT21: BLOCK 77
1) 00960 EVAL22: BLOCK 76
1) 00970 SIGT22: BLOCK 77
1) 00980 EVALF: BLOCK 160
**** File 2) CKP2.MAC[2,ALS], Page 13 line 89
2) 00820 EVAL11: BLOCK 103 ;SIGNATURE TABLES
2) 00830 SIGT11: BLOCK 104 ;LABEL IS CENTERED IN TABLE TO ALLOW NEGATIVE SUBSCRIPTS
1) CKP.MAC[CH2,ALS] and 2) CKP2.MAC[2,ALS] 3-29-77 14:14 pages 13,13
2) 00840 EVAL12: BLOCK 103
2) 00850 SIGT12: BLOCK 104
2) 00860 EVAL13: BLOCK 103
2) 00870 SIGT13: BLOCK 104
2) 00880 EVAL14: BLOCK 103
2) 00890 SIGT14: BLOCK 104
2) 00940 EVAL21: BLOCK 74
2) 00950 SIGT21: BLOCK 75
2) 00960 EVAL22: BLOCK 74
2) 00970 SIGT22: BLOCK 75
2) 00980 EVALF: BLOCK 160
***************
**** File 1) CKP.MAC[CH2,ALS], Page 13 line 194
1) 01780 SIXBIT /CH3SMG/
1) 01800 BKMIN: IOWD INPSIZ,INPA
**** File 2) CKP2.MAC[2,ALS], Page 13 line 190
2) 01780 SIXBIT / 3ALS/
2) 01800 BKMIN: IOWD INPSIZ,INPA
***************
**** File 1) CKP.MAC[CH2,ALS], Page 13 line 261
1) 02450 MOVE U1,[SIXBIT /CH3SMG/]
1) 02460 MOVEM U1,DSKBKM+3
**** File 2) CKP2.MAC[2,ALS], Page 13 line 257
2) 02450 MOVE U1,[SIXBIT / 3ALS/]
2) 02460 MOVEM U1,DSKBKM+3
***************